home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue56 / VFI / Listing4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-02-29  |  346 b   |  15 lines
  1. TBasicFormProperties = class(TComponent)
  2. private
  3.   FEnterAsTab: boolean;
  4. public
  5.   procedure Loaded; override;
  6. published
  7.   property EnterAsTab: boolean read FEnterAsTab write FEnterAsTab;
  8. end;
  9.  
  10. procedure TBasicFormProperties.Loaded;
  11. begin
  12.   inherited;
  13.   if Owner is TBasicForm then
  14.     TBasicForm(Owner).EnterAsTab:=FEnterAsTab;
  15. end;